home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / MailingLists < prev    next >
Text File  |  2000-06-04  |  910b  |  35 lines
  1. /* */
  2.  
  3. options results
  4. address command    
  5. call pragma('D',':')
  6. CDName = pragma('D')
  7. if ~show('P','AWEB.1') then do
  8.  
  9.     Browser = CDName'AACD/Information/Browsers/AWeb3/AWebDemo'
  10.     'Assign >NIL: AWeb3: EXISTS'
  11.     if RC = 0 then do
  12.         'Version >NIL: AWeb3:AWeb-II 3 3'
  13.         if RC = 0 then do
  14.             Browser = 'AWeb3:AWeb-II'
  15.             if ~exists('ENVARC:AWeb3/Amigactive') then do
  16.                 'Makedir >NIL: ENVARC:AWeb3/Amigactive'
  17.                 'Makedir >NIL: ENV:AWeb3/Amigactive'
  18.                 'copy >NIL: AACD:System/Prefs/Env-Archive/AWeb3DEMO/AmigActive/#? ENVARC:AWeb3/Amigactive clone'
  19.                 'copy >NIL: AACD:System/Prefs/Env-Archive/AWeb3DEMO/AmigActive/#? ENV:AWeb3/Amigactive clone'
  20.                 end
  21.             end
  22.         end
  23.     'Run >NIL:' Browser 'Welcome.html LOCAL CONFIG Amigactive'
  24.  
  25.     do until RC = 0
  26.         'waitforport AWEB.1'
  27.         end
  28.     end
  29.  
  30. address AWEB.1
  31. 'screentofront'
  32. 'wait all'
  33. 'open file://localhost/'CDName'AACD/Information/MailingLists/index.html target main reload'
  34.  
  35.